home *** CD-ROM | disk | FTP | other *** search
/ Ham Radio 2000 #2 / Ham Radio 2000 - Volume 2.iso / HAMV2 / MISC / HCAL-27 / FORMULAE.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1997-01-28  |  16.8 KB  |  373 lines
  1. 10  'FORMULAE - Formula bank - 05 APR 96 rev. 25 NOV 96
  2. 20  IF EX$=""THEN EX$="EXIT"
  3. 30  CLS:KEY OFF
  4. 40  COLOR 7,0,1
  5. 50  UL$=STRING$(80,205)
  6. 60  QJ=13    'left margin for graphics
  7. 70  '
  8. 80  COLOR 15,2
  9. 90  PRINT " FORMULA LIBRARY of Frequently Used Equations";
  10. 100  PRINT TAB(57)"by George Murphy VE3ERP ";
  11. 110  COLOR 1,0:PRINT STRING$(80,223);
  12. 120  COLOR 7,0
  13. 130  PRINT " Press number in < > for:"
  14. 140  PRINT UL$;
  15. 150  PRINT "   < 1 > Formulae in metric units"
  16. 160  PRINT "   < 2 > Formulae in U.S.A./Imperial units"
  17. 170  PRINT
  18. 180  PRINT "   < 0 > EXIT"
  19. 190  Z$=INKEY$:IF Z$=""THEN 190
  20. 200  FLAG=VAL(Z$):IF FLAG<0 OR FLAG>2 THEN 190
  21. 210  IF FLAG>0 THEN 240
  22. 220  IF Z$="0"THEN CLS:RUN EX$
  23. 230  GOTO 190
  24. 240  VIEW PRINT 3 TO 24:CLS:VIEW PRINT:LOCATE 3
  25. 250  PRINT " Press letter in < > for:"
  26. 260  PRINT UL$;
  27. 270  PRINT "   < a >  Antennas"
  28. 280  PRINT "   < b >  Capacitance"
  29. 290  PRINT "   < c >  Copper wire equations"
  30. 300  PRINT "   < d >  Decibels"
  31. 310  PRINT "   < e >  Frequency"
  32. 320  PRINT "   < f >  Impedance (transmission lines)"
  33. 330  PRINT "   < g >  Inductance"
  34. 340  PRINT "   < h >  Mathematics"
  35. 350  PRINT "   < i >  Ohm's Law / Power
  36. 360  PRINT "   < j >  Reactance"
  37. 370  PRINT "   < k >  SWR"
  38. 380  PRINT "   < l >  Transmission line physical vs. electrical length
  39. 390  PRINT "   < m >  Shortened antenna physical vs. electrical length
  40. 400  Z$=INKEY$:IF Z$=""THEN 400
  41. 410  IF Z$="a"THEN GOSUB 1940:GOTO 3550
  42. 420  IF Z$="b"THEN GOSUB 1180:GOTO 3550
  43. 430  IF Z$="c"THEN GOSUB 3300:GOTO 3550
  44. 440  IF Z$="d"THEN GOSUB 800:GOTO 3550
  45. 450  IF Z$="e"THEN GOSUB 560:GOTO 3550
  46. 460  IF Z$="f"THEN GOSUB 2680:GOTO 3550
  47. 470  IF Z$="g"THEN GOSUB 1560:GOTO 3550
  48. 480  IF Z$="h"THEN GOSUB 2290:GOTO 3550
  49. 490  IF Z$="i"THEN GOSUB 950:GOTO 3550
  50. 500  IF Z$="j"THEN GOSUB 1810:GOTO 3550
  51. 510  IF Z$="k"THEN GOSUB 2490:GOTO 3550
  52. 520  IF Z$="l"THEN GOSUB 2960:GOTO 3550
  53. 530  IF Z$="m"THEN GOSUB 3150:GOTO 3550
  54. 540  GOTO 400
  55. 550  '
  56. 560  '.....frequency
  57. 570  CLS:COLOR 0,7
  58. 580  LOCATE ,QJ:PRINT "                                                        "
  59. 590  LOCATE ,QJ:PRINT "       300           f = frequency in MHz               "
  60. 600  LOCATE ,QJ:PRINT "  f = SOUNDSOUNDSOUNDSOUNDSOUND                                             "
  61. 610  LOCATE ,QJ:PRINT "        w            w = wavelength in metres           "
  62. 620  LOCATE ,QJ:PRINT "                                                        "
  63. 630  COLOR 7,0:PRINT :COLOR 0,7
  64. 640  LOCATE ,QJ:PRINT "                                                        "
  65. 650  LOCATE ,QJ:PRINT "                     f = frequency in kHz               "
  66. 660  LOCATE ,QJ:PRINT "        1<0xE4!>6          L = inductance in >H               "
  67. 670  LOCATE ,QJ:PRINT "  f = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND        C = capacity in pF                 "
  68. 680  LOCATE ,QJ:PRINT "      2<0xE3!><UNK! {00FB}>(LC)        <0xE3!> = 3.141593                       "
  69. 690  LOCATE ,QJ:PRINT "                   1<0xE4!>6 = 1,000,000                      "
  70. 700  LOCATE ,QJ:PRINT "                                                        "
  71. 710  COLOR 7,0:PRINT :COLOR 0,7
  72. 720  LOCATE ,QJ:PRINT "                                                        "
  73. 730  LOCATE ,QJ:PRINT "                    F1 = highest frequency              "
  74. 740  LOCATE ,QJ:PRINT " Fc = <UNK! {00FB}>(F1 x F2)    Fc = centre frequency               "
  75. 750  LOCATE ,QJ:PRINT "                    F2 = lowest frequency               "
  76. 760  LOCATE ,QJ:PRINT "                                                        "
  77. 770  COLOR 7,0
  78. 780  RETURN
  79. 790  '
  80. 800  '.....decibels
  81. 810  CLS:COLOR 0,7
  82. 820  LOCATE ,QJ:PRINT "             VARPTR P2 COLOR    P2 = output power                "
  83. 830  LOCATE ,QJ:PRINT " dB = 10 log CALLSOUNDSOUNDSOUNDSOUNDCALL                                     "
  84. 840  LOCATE ,QJ:PRINT "             CLS P1 '    P1 = input power                 "
  85. 850  COLOR 7,0:PRINT :COLOR 0,7
  86. 860  LOCATE ,QJ:PRINT "             VARPTR V2 COLOR    V2 = output voltage              "
  87. 870  LOCATE ,QJ:PRINT " dB = 20 log CALLSOUNDSOUNDSOUNDSOUNDCALL                                     "
  88. 880  LOCATE ,QJ:PRINT "             CLS V1 '    V1 = input voltage               "
  89. 890  COLOR 7,0:PRINT :COLOR 0,7
  90. 900  LOCATE ,QJ:PRINT "             VARPTR I2 COLOR    I2 = output current              "
  91. 910  LOCATE ,QJ:PRINT " dB = 20 log CALLSOUNDSOUNDSOUNDSOUNDCALL                                     "
  92. 920  LOCATE ,QJ:PRINT "             CLS I1 '    I1 = input current               "
  93. 930  COLOR 7,0
  94. 940  RETURN
  95. 950  '
  96. 960  '.....power
  97. 970  CLS:COLOR 0,7
  98. 980  LOCATE ,QJ:PRINT " OHM's LAW                                              "
  99. 990  LOCATE ,QJ:PRINT "                                                        "
  100. 1000  LOCATE ,QJ:PRINT "                    E              E                    "
  101. 1010  LOCATE ,QJ:PRINT " E = IR        I = SOUNDSOUNDSOUND        R = SOUNDSOUNDSOUND                   "
  102. 1020  LOCATE ,QJ:PRINT "                    R              I                    "
  103. 1030  LOCATE ,QJ:PRINT "                                                        "
  104. 1040  LOCATE ,QJ:PRINT STRING$(56,196)
  105. 1050  LOCATE ,QJ:PRINT " POWER                                                  "
  106. 1060  LOCATE ,QJ:PRINT "                                                        "
  107. 1070  LOCATE ,QJ:PRINT " P = IE        P = power in watts                       "
  108. 1080  LOCATE ,QJ:PRINT "                                                        "
  109. 1090  LOCATE ,QJ:PRINT "      E<UNK! {FD20}>      E = EMF in volts                         "
  110. 1100  LOCATE ,QJ:PRINT " P = SOUNDSOUNDSOUND                                                "
  111. 1110  LOCATE ,QJ:PRINT "      R        I = current in amperes                   "
  112. 1120  LOCATE ,QJ:PRINT "                                                        "
  113. 1130  LOCATE ,QJ:PRINT " P = I<UNK! {FD52}>       R = resistance in ohms                   "
  114. 1140  LOCATE ,QJ:PRINT "                                                        "
  115. 1150  COLOR 7,0
  116. 1160  RETURN
  117. 1170  '
  118. 1180  '.....capacitance
  119. 1190  CLS:COLOR 0,7
  120. 1200  LOCATE ,QJ:PRINT " CAPACITORS                                             "
  121. 1210  LOCATE ,QJ:PRINT "                      C = capacitance in pF             "
  122. 1220  LOCATE ,QJ:PRINT "                      A = area of one side of one       "
  123. 1230  IF FLAG=1 THEN 1260
  124. 1240  LOCATE ,QJ:PRINT "     0.2248 KA              plate in square inches      "
  125. 1250  IF FLAG=2 THEN 1270
  126. 1260  LOCATE ,QJ:PRINT "     0.0885 KA              plate in square centimetres "
  127. 1270  LOCATE ,QJ:PRINT " C = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND (n-1)  K = dielectric constant of        "
  128. 1280  LOCATE ,QJ:PRINT "         d                  material between plates     "
  129. 1290  IF FLAG=1 THEN 1320
  130. 1300  LOCATE ,QJ:PRINT "                      d = separation of plates in inches"
  131. 1310  IF FLAG=2 THEN 1330
  132. 1320  LOCATE ,QJ:PRINT "                      d = separation of plates in cm.   "
  133. 1330  LOCATE ,QJ:PRINT "                      n = number of plates              "
  134. 1340  COLOR 7,0:PRINT :COLOR 0,7
  135. 1350  LOCATE ,QJ:PRINT " COAXIAL CABLE                                          "
  136. 1360  LOCATE ,QJ:PRINT "                      <0xE4!> = dielectric constant           "
  137. 1370  IF FLAG=1 THEN 1400
  138. 1380  LOCATE ,QJ:PRINT "       7.36 <0xE4!>         C = capacitance in pF per foot    "
  139. 1390  IF FLAG=2 THEN 1410
  140. 1400  LOCATE ,QJ:PRINT "     24.147 <0xE4!>         C = capacitance in pF per metre   "
  141. 1410  LOCATE ,QJ:PRINT " C = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND        D = ID of outer conductor         "
  142. 1420  LOCATE ,QJ:PRINT "     log (D/d)        d = OD of inner conductor         "
  143. 1430  COLOR 7,0:PRINT :COLOR 0,7
  144. 1440  LOCATE ,QJ:PRINT " CYLINDRICAL VARIABLE CAPACITOR (<0xE4!>=1 if air-spaced)     "
  145. 1450  LOCATE ,QJ:PRINT "                      <0xE4!> = dielectric constant           "
  146. 1460  IF FLAG=1 THEN 1490
  147. 1470  LOCATE ,QJ:PRINT "       7.47 <0xE4!>         C = capacitance in pF per foot    "
  148. 1480  IF FLAG=2 THEN 1500
  149. 1490  LOCATE ,QJ:PRINT "       24.5 <0xE4!>         C = capacitance in pF per metre   "
  150. 1500  LOCATE ,QJ:PRINT " C = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND        D = ID of outer tube              "
  151. 1510  LOCATE ,QJ:PRINT "     log (D/d)        d = OD of inner conductor         "
  152. 1520  COLOR 7,0:PRINT :COLOR 0,7
  153. 1530  COLOR 7,0
  154. 1540  RETURN
  155. 1550  '
  156. 1560  '.....inductance
  157. 1570  CLS:COLOR 0,7
  158. 1580  LOCATE ,QJ:PRINT "                                                        "
  159. 1590  LOCATE ,QJ:PRINT " SINGLE-LAYER AIR-CORE COIL                             "
  160. 1600  LOCATE ,QJ:PRINT "                                                        "
  161. 1610  LOCATE ,QJ:PRINT "          d<UNK! {FD6E}><UNK! {FD20}>                                         "
  162. 1620  LOCATE ,QJ:PRINT " L = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND         L = inductance in >H         "
  163. 1630  IF FLAG=1 THEN 1670
  164. 1640  LOCATE ,QJ:PRINT "       18d + 40l           d = coil diameter in inches  "
  165. 1650  LOCATE ,QJ:PRINT "                           l = coil length in inches    "
  166. 1660  IF FLAG=2 THEN 1690
  167. 1670  LOCATE ,QJ:PRINT "     45.72d+101.6l         d = coil diameter in cm.     "
  168. 1680  LOCATE ,QJ:PRINT "                           l = coil length in cm.       "
  169. 1690  LOCATE ,QJ:PRINT "                           n = number of turns          "
  170. 1700  LOCATE ,QJ:PRINT STRING$(56,196)
  171. 1710  IF FLAG=1 THEN 1740
  172. 1720  LOCATE ,QJ:PRINT "       <UNK! {00FB}>{ L(18d + 40l) }                                "
  173. 1730  IF FLAG=2 THEN 1750
  174. 1740  LOCATE ,QJ:PRINT "     <UNK! {00FB}>{ L(45.72d + 101.6l) }                            "
  175. 1750  LOCATE ,QJ:PRINT " n = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND                            "
  176. 1760  LOCATE ,QJ:PRINT "              d                                         "
  177. 1770  LOCATE ,QJ:PRINT "                                                        "
  178. 1780  COLOR 7,0
  179. 1790  RETURN
  180. 1800  '
  181. 1810  '.....reactance
  182. 1820  CLS:COLOR 0,7
  183. 1830  LOCATE ,QJ:PRINT "                                                        "
  184. 1840  LOCATE ,QJ:PRINT "              XL = inductive reactance in ohms          "
  185. 1850  LOCATE ,QJ:PRINT " XL = 2<0xE3!><0x9F!>L    XC = capacitive reactance in ohms         "
  186. 1860  LOCATE ,QJ:PRINT "               <0x9F!> = frequency in MHz                     "
  187. 1870  LOCATE ,QJ:PRINT "       1       L = inductance in >H                     "
  188. 1880  LOCATE ,QJ:PRINT " XC = SOUNDSOUNDSOUND      C = capacitance in pF                    "
  189. 1890  LOCATE ,QJ:PRINT "      2<0xE3!><0x9F!>C     <0xE3!> = 3.141593                             "
  190. 1900  LOCATE ,QJ:PRINT "                                                        "
  191. 1910  COLOR 7,0
  192. 1920  RETURN
  193. 1930  '
  194. 1940  '.....antenna
  195. 1950  CLS:COLOR 0,7
  196. 1960  LOCATE ,QJ:PRINT " HALF-WAVE FLAT-TOP ( 3-30 MHz )                        "
  197. 1970  LOCATE ,QJ:PRINT "                                                        "
  198. 1980  IF FLAG=1 THEN 2010
  199. 1990  LOCATE ,QJ:PRINT "     468         L = length in feet                     "
  200. 2000  IF FLAG=2 THEN 2020
  201. 2010  LOCATE ,QJ:PRINT "     143         L = length in metres                   "
  202. 2020  LOCATE ,QJ:PRINT " L = SOUNDSOUNDSOUND                                                "
  203. 2030  LOCATE ,QJ:PRINT "      f          f = frequency in Mhz                   "
  204. 2040  COLOR 7,0:PRINT :COLOR 0,7
  205. 2050  LOCATE ,QJ:PRINT " FULL-WAVE LOOP (3-30 MHz )                             "
  206. 2060  LOCATE ,QJ:PRINT "                                                        "
  207. 2070  IF FLAG=1 THEN 2100
  208. 2080  LOCATE ,QJ:PRINT "       1005    DRI = length of driven element in feet   "
  209. 2090  IF FLAG=2 THEN 2110
  210. 2100  LOCATE ,QJ:PRINT "       306.3   DRI = length of driven element in metres "
  211. 2110  LOCATE ,QJ:PRINT " DRI = SOUNDSOUNDSOUNDSOUNDSOUND   REF = length of reflector                "
  212. 2120  LOCATE ,QJ:PRINT "         f     DIR = length of director                 "
  213. 2130  LOCATE ,QJ:PRINT "                 f = frequency in MHz                   "
  214. 2140  LOCATE ,QJ:PRINT "                                                        "
  215. 2150  LOCATE ,QJ:PRINT " REF = 1.025 x DRI                                      "
  216. 2160  LOCATE ,QJ:PRINT " DIR = 0.970 x DRI                                      "
  217. 2170  COLOR 7,0:PRINT :COLOR 0,7
  218. 2180  LOCATE ,QJ:PRINT " FULL-SIZE VERTICAL                                     "
  219. 2190  LOCATE ,QJ:PRINT "                                                        "
  220. 2200  IF FLAG=1 THEN 2230
  221. 2210  LOCATE ,QJ:PRINT "     234         L = length in feet                     "
  222. 2220  IF FLAG=2 THEN 2240
  223. 2230  LOCATE ,QJ:PRINT "     71.3        L = length in metres                   "
  224. 2240  LOCATE ,QJ:PRINT " L = SOUNDSOUNDSOUND                                                "
  225. 2250  LOCATE ,QJ:PRINT "      f          f = frequency in Mhz                   "
  226. 2260  COLOR 7,0
  227. 2270  RETURN
  228. 2280  '
  229. 2290  '.....mathematics
  230. 2300  CLS:COLOR 0,7
  231. 2310  LOCATE ,QJ:PRINT "                                                        "
  232. 2320  LOCATE ,QJ:PRINT " <0xE3!> = 3.141593                                           "
  233. 2330  LOCATE ,QJ:PRINT "                                                        "
  234. 2340  LOCATE ,QJ:PRINT " Circumference of circle = <0xE3!> x diameter                 "
  235. 2350  LOCATE ,QJ:PRINT "                                                        "
  236. 2360  LOCATE ,QJ:PRINT " Area of circle = <0xE3!> x radius<UNK! {FD20}>                          "
  237. 2370  LOCATE ,QJ:PRINT "                                                        "
  238. 2380  LOCATE ,QJ:PRINT " As used in HAMCALC:                                    "
  239. 2390  LOCATE ,QJ:PRINT "  a METER is an apparatus for measuring (e.g voltmeter)."
  240. 2400  LOCATE ,QJ:PRINT "  a METRE is a unit of measurement in the metric system."
  241. 2410  LOCATE ,QJ:PRINT "                                                        "
  242. 2420  LOCATE ,QJ:PRINT " metres = feet x .3048      feet = metres <UNK! {00F6}> .3048       "
  243. 2430  LOCATE ,QJ:PRINT " centimetres = in. x 2.54   inches = cm <UNK! {00F6}> 2.54          "
  244. 2440  LOCATE ,QJ:PRINT " millimetres = in. x 25.4   inches = mm <UNK! {00F6}> 25.4          "
  245. 2450  LOCATE ,QJ:PRINT "                                                        "
  246. 2460  COLOR 7,0
  247. 2470  RETURN
  248. 2480  '
  249. 2490  '.....SWR
  250. 2500  CLS:COLOR 0,7
  251. 2510  LOCATE ,QJ:PRINT " SWR  (STANDING WAVE RATIO)                             "
  252. 2520  LOCATE ,QJ:PRINT "                                                        "
  253. 2530  LOCATE ,QJ:PRINT "        VARPTR Pr COLOR                                          "
  254. 2540  LOCATE ,QJ:PRINT "   p = <UNK! {00FB}>CALL SOUNDSOUND CALL                                          "
  255. 2550  LOCATE ,QJ:PRINT "        CLS Pf '      p = reflection coefficient          "
  256. 2560  LOCATE ,QJ:PRINT "                                                        "
  257. 2570  LOCATE ,QJ:PRINT "       SWR-1       Pr = reflected power                 "
  258. 2580  LOCATE ,QJ:PRINT "   p = SOUNDSOUNDSOUNDSOUNDSOUND                                            "
  259. 2590  LOCATE ,QJ:PRINT "       SWR+1       Pf = forward power                   "
  260. 2600  LOCATE ,QJ:PRINT "                                                        "
  261. 2610  LOCATE ,QJ:PRINT "       1 + p      SWR = standing wave ratio             "
  262. 2620  LOCATE ,QJ:PRINT " SWR = SOUNDSOUNDSOUNDSOUNDSOUND                                            "
  263. 2630  LOCATE ,QJ:PRINT "       1 - p                                            "
  264. 2640  LOCATE ,QJ:PRINT "                                                        "
  265. 2650  COLOR 7,0
  266. 2660  RETURN
  267. 2670  '
  268. 2680  '.....impedance (transmission line)
  269. 2690  CLS:COLOR 0,7
  270. 2700  LOCATE ,QJ:PRINT " AIR-INSULATED PARALLEL CONDUCTOR LINE                  "
  271. 2710  LOCATE ,QJ:PRINT "                  OFF                                     "
  272. 2720  LOCATE ,QJ:PRINT "              2S  OFFZo = characteristic impedance        "
  273. 2730  LOCATE ,QJ:PRINT " Zo = 276 log SOUNDSOUNDSOUND OFF S = c.c distance between conductors "
  274. 2740  LOCATE ,QJ:PRINT "               d  OFF d = diameter of conductors          "
  275. 2750  LOCATE ,QJ:PRINT "                  OFF     ( S & d in same units)          "
  276. 2760  LOCATE ,QJ:PRINT "                  OFF                                     "
  277. 2770  COLOR 7,0:PRINT:COLOR 0,7
  278. 2780  LOCATE ,QJ:PRINT " AIR-INSULATED COAXIAL LINE                             "
  279. 2790  LOCATE ,QJ:PRINT "                  OFF                                     "
  280. 2800  LOCATE ,QJ:PRINT "               b  OFFZo = characteristic impedance        "
  281. 2810  LOCATE ,QJ:PRINT " Zo = 138 log SOUNDSOUNDSOUND OFF b = ID of outer conductor           "
  282. 2820  LOCATE ,QJ:PRINT "               a  OFF a = OD of inner conductor           "
  283. 2830  LOCATE ,QJ:PRINT "                  OFF     ( b & a in same units)          "
  284. 2840  LOCATE ,QJ:PRINT "                  OFF                                     "
  285. 2850  COLOR 7,0:PRINT:COLOR 0,7
  286. 2860  LOCATE ,QJ:PRINT " ANY TRANSMISSION LINE                                  "
  287. 2870  LOCATE ,QJ:PRINT "                 OFF                                      "
  288. 2880  LOCATE ,QJ:PRINT "       VARPTR 1<0xE4!>6 L COLOR OFF Zo = characteristic impedance        "
  289. 2890  LOCATE ,QJ:PRINT " Zo = <UNK! {00FB}>CALL SOUNDSOUNDSOUNDSOUNDSOUND CALL OFF  L = inductance (>H) per unit length "
  290. 2900  LOCATE ,QJ:PRINT "       CLS   C   ' OFF  C = capacitance (pF) per unit length"
  291. 2910  LOCATE ,QJ:PRINT "                 OFF1<0xE4!>6 = 1,000,000                       "
  292. 2920  LOCATE ,QJ:PRINT "                 OFF                                      "
  293. 2930  COLOR 7,0
  294. 2940  RETURN
  295. 2950  '
  296. 2960  '.....transmission lines
  297. 2970  CLS:COLOR 0,7
  298. 2980  LOCATE ,QJ:PRINT "                                                        "
  299. 2990  LOCATE ,QJ:PRINT " TRANSMISSION LINE PHYSICAL vs. ELECTRICAL LENGTH       "
  300. 3000  LOCATE ,QJ:PRINT "                                                        "
  301. 3010  IF FLAG=1 THEN 3040
  302. 3020  LOCATE ,QJ:PRINT "     983.56 V    L = length (feet) of one wavelength    "
  303. 3030  IF FLAG=2 THEN 3050
  304. 3040  LOCATE ,QJ:PRINT "     299.79 V    L = length (metres) of one wavelength  "
  305. 3050  LOCATE ,QJ:PRINT " L = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND    V = velocity factor (decimal value)    "
  306. 3060  LOCATE ,QJ:PRINT "         <0x9F!>       <0x9F!> = frequency in MHz                   "
  307. 3070  LOCATE ,QJ:PRINT "                 <0xE4!> = dielectric constant                "
  308. 3080  LOCATE ,QJ:PRINT "     1                                                  "
  309. 3090  LOCATE ,QJ:PRINT " V = SOUNDSOUND                                                 "
  310. 3100  LOCATE ,QJ:PRINT "     <UNK! {00FB}><0xE4!>                                                 "
  311. 3110  LOCATE ,QJ:PRINT "                                                        "
  312. 3120  COLOR 7,0
  313. 3130  RETURN
  314. 3140  '
  315. 3150  '.....shortened antennas
  316. 3160  CLS:COLOR 0,7
  317. 3170  LOCATE ,QJ:PRINT "                                                        "
  318. 3180  LOCATE ,QJ:PRINT " SHORTENED ANTENNA PHYSICAL vs. ELECTRICAL LENGTH       "
  319. 3190  LOCATE ,QJ:PRINT "                                                        "
  320. 3200  IF FLAG=1 THEN 3230
  321. 3210  LOCATE ,QJ:PRINT "     32.8 L    h = length (inches)                      "
  322. 3220  IF FLAG=2 THEN 3240
  323. 3230  LOCATE ,QJ:PRINT "     83.3 L    h = length (centimetres)                 "
  324. 3240  LOCATE ,QJ:PRINT " h = SOUNDSOUNDSOUNDSOUNDSOUNDSOUND    L = electrical length (degrees)          "
  325. 3250  LOCATE ,QJ:PRINT "       <0x9F!>       <0x9F!> = frequency in MHz                     "
  326. 3260  LOCATE ,QJ:PRINT "                                                        "
  327. 3270  COLOR 7,0
  328. 3280  RETURN
  329. 3290  '
  330. 3300  '.....copper wire
  331. 3310  CLS:COLOR 0,7
  332. 3320  LOCATE ,QJ:PRINT "                                                        "
  333. 3330  IF FLAG=2 THEN 3390
  334. 3340  LOCATE ,QJ:PRINT "        1                                               "
  335. 3350  LOCATE ,QJ:PRINT " R = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND       R = ohms per kilometre              "
  336. 3360  LOCATE ,QJ:PRINT "     .1822 a<UNK! {FD20}>      a = radius of wire in mm.           "
  337. 3370  LOCATE ,QJ:PRINT "                                                        "
  338. 3380  IF FLAG=1 THEN 3430
  339. 3390  LOCATE ,QJ:PRINT "       1.67                                             "
  340. 3400  LOCATE ,QJ:PRINT " R = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND       R = ohms per 1000 feet              "
  341. 3410  LOCATE ,QJ:PRINT "     (25.4a)<UNK! {FD20}>      a = radius of wire in decimal inches"
  342. 3420  LOCATE ,QJ:PRINT "                                                        "
  343. 3430  LOCATE ,QJ:COLOR 7,0:PRINT STRING$(40,32):COLOR 0,7
  344. 3440  LOCATE ,QJ:PRINT "                                                        "
  345. 3450  IF FLAG=2 THEN 3480
  346. 3460  LOCATE ,QJ:PRINT "        11.68       D = diameter in millimetres         "
  347. 3470  IF FLAG=1 THEN 3490
  348. 3480  LOCATE ,QJ:PRINT "         .46        D = diameter in inches              "
  349. 3490  LOCATE ,QJ:PRINT " D = SOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUNDSOUND                                       "
  350. 3500  LOCATE ,QJ:PRINT "     1.1229^(n+3)   n = AWG number                      "
  351. 3510  LOCATE ,QJ:PRINT "                                                        "
  352. 3520  COLOR 7,0
  353. 3530  RETURN
  354. 3540  '
  355. 3550  '.....end
  356. 3560  GOSUB 3600
  357. 3570  GOTO 10
  358. 3580  END
  359. 3590  '
  360. 3600  'HARDCOPY
  361. 3610  GOSUB 3720:LOCATE 25,2:COLOR 14,6
  362. 3620  PRINT " Press 1 to print screen, 2 to print screen & ";
  363. 3630  PRINT "advance paper, or 3 to continue.";:COLOR 7,0
  364. 3640  Z$=INKEY$:IF Z$="3"THEN GOSUB 3720:RETURN
  365. 3650  IF Z$="1"OR Z$="2"THEN GOSUB 3720:GOTO 3670
  366. 3660  GOTO 3640
  367. 3670  FOR QX=1 TO 24:FOR QY=1 TO 80
  368. 3680  LPRINT CHR$(SCREEN(QX,QY));
  369. 3690  NEXT QY:NEXT QX
  370. 3700  IF Z$="2"THEN LPRINT CHR$(12)
  371. 3710  GOTO 3610
  372. 3720  LOCATE 25,1:PRINT STRING$(80,32);:RETURN
  373.